home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / forlib1.arc / VIDEO.ASM < prev    next >
Assembly Source File  |  1986-01-15  |  3KB  |  172 lines
  1. DATA SEGMENT PUBLIC 'DATA'
  2. TITLE__ DB 'TITLE: VIDEO CONTROL FOR MS FORTRAN'
  3. COPY_R  DB '   (C) John R. Petrocelli'
  4.         DB '       Schenectady,NY    '
  5.         DB '       01/13/86          '
  6.        ESC_SEQ_COL     DB  ' [  m$'
  7.        ESC_SEQ_CLS     DB  ' [2J$'
  8. DATA ENDS
  9. DGROUP GROUP DATA
  10. CODE   SEGMENT 'CODE'
  11.        ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
  12. PUBLIC VIDCOL
  13. VIDCOL PROC FAR
  14.        PUSH BP
  15.        PUSH AX
  16.        PUSH BX
  17.        PUSH DX
  18.        MOV BP,SP
  19.        MOV ESC_SEQ_COL[0],1BH
  20.        LES BX,DWORD PTR[BP+12]
  21.        MOV BP,BX
  22.        MOV AH,[BP]
  23.        MOV AL,[BP+1]
  24.        MOV ESC_SEQ_COL[2],AH
  25.        MOV ESC_SEQ_COL[3],AL
  26.        LEA DX,ESC_SEQ_COL[0]
  27.        MOV AX,0900H
  28.        INT 21H
  29.        POP DX
  30.        POP BX
  31.        POP AX
  32.        POP BP
  33.        RET 4
  34.        VIDCOL ENDP
  35. PUBLIC VIDCLR
  36. VIDCLR PROC FAR
  37.        PUSH AX
  38.        PUSH BX
  39.        PUSH CX
  40.        PUSH DX
  41.        MOV  AX,0F00H
  42.        INT  10H
  43.        PUSH BX
  44.        MOV  DL,AH
  45.        MOV  DH,18H
  46.        MOV  BH,07
  47.        XOR  CX,CX
  48.        MOV  AX,0600H
  49.        INT  10H
  50.        POP  BX
  51.        MOV  AX,0200H
  52.        XOR  DX,DX
  53.        INT  10H
  54.        POP  DX
  55.        POP  CX
  56.        POP  BX
  57.        POP  AX
  58.        RET
  59.        VIDCLR ENDP
  60. PUBLIC VIDCLZ
  61. VIDCLZ PROC FAR
  62.        PUSH AX
  63.        PUSH DX
  64.        MOV ESC_SEQ_CLS[0],1BH
  65.        LEA DX,ESC_SEQ_CLS[0]
  66.        MOV AX,0900H
  67.        INT 21H
  68.        POP DX
  69.        POP AX
  70.        RET
  71.        VIDCLZ ENDP
  72. PUBLIC VIDLCR
  73. VIDLCR PROC FAR
  74.        PUSH BP
  75.        PUSH AX
  76.        PUSH BX
  77.        PUSH CX
  78.        PUSH DX
  79.        MOV BP,SP
  80.        MOV AX,0F00H
  81.        INT 10H
  82.        MOV AX,0300H
  83.        INT 10H
  84.        LES BX,DWORD PTR[BP+18]
  85.        MOV [BX],DH
  86.        LES BX,DWORD PTR[BP+14]
  87.        MOV [BX],DL
  88.        POP DX
  89.        POP CX
  90.        POP BX
  91.        POP AX
  92.        POP BP
  93.        RET 8
  94.        VIDLCR ENDP
  95. PUBLIC VIDMCR
  96. VIDMCR PROC FAR
  97.        PUSH BP
  98.        PUSH AX
  99.        PUSH BX
  100.        PUSH CX
  101.        PUSH DX
  102.        MOV BP,SP
  103.        LES BX,DWORD PTR[BP+18]
  104.        MOV DH,[BX]
  105.        LES BX,DWORD PTR[BP+14]
  106.        MOV DL,[BX]
  107.        MOV AX,0F00H
  108.        INT 10H
  109.        MOV AX,0200H
  110.        INT 10H
  111.        POP DX
  112.        POP CX
  113.        POP BX
  114.        POP AX
  115.        POP BP
  116.        RET 8
  117.        VIDMCR ENDP
  118. PUBLIC VIDSCN
  119. VIDSCN PROC FAR
  120.        PUSH BP
  121.        PUSH AX
  122.        PUSH BX
  123.        MOV BP,SP
  124.        LES BX,DWORD PTR[BP+10]
  125.        MOV AH,05
  126.        MOV AL,[BX]
  127.        INT 10H
  128.        POP BX
  129.        POP AX
  130.        POP BP
  131.        RET 4
  132.        VIDSCN ENDP
  133. PUBLIC VIDMOD
  134. VIDMOD PROC FAR
  135.        PUSH BP
  136.        PUSH AX
  137.        PUSH BX
  138.        MOV BP,SP
  139.        LES BX,DWORD PTR[BP+10]
  140.        MOV AH,00
  141.        MOV AL,[BX]
  142.        INT 10H
  143.        POP BX
  144.        POP AX
  145.        POP BP
  146.        RET 4
  147.        VIDMOD ENDP
  148. PUBLIC VIDSTA
  149. VIDSTA PROC FAR
  150.        PUSH BP
  151.        PUSH AX
  152.        PUSH BX
  153.        PUSH CX
  154.        MOV BP,SP
  155.        MOV AX,0F00H
  156.        INT 10H
  157.        XCHG BX,CX
  158.        LES BX,DWORD PTR[BP+16]
  159.        MOV WORD PTR[BX],0000
  160.        MOV [BX],AL
  161.        LES BX,DWORD PTR[BP+12]
  162.        MOV WORD PTR[BX],0000
  163.        MOV [BX],CH
  164.        POP CX
  165.        POP BX
  166.        POP AX
  167.        POP BP
  168.        RET 4
  169.        VIDSTA ENDP
  170.        CODE ENDS
  171. END
  172.